home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / gnustuff / tos / updates / update32.zoo / libg++ / src / diffs next >
Encoding:
Text File  |  1993-07-13  |  50.5 KB  |  2,254 lines
  1. *** 1.14    1993/05/29 21:16:07
  2. --- Changelo    1993/07/13 17:38:43
  3. ***************
  4. *** 313,315 ****
  5. --- 313,329 ----
  6.       sync up with libg++ 2.3.1
  7.   
  8.   ---------------------------- Patchlevel 19 -----------------------------------
  9. + 
  10. +     RENAME iodtoa.cc to floatcon.cc due to gnu renaming. sorry about the
  11. +     last patch, that tried to patch the wrong file.
  12. + 
  13. +  *.cc, *.h:: ++jrb
  14. +     sync up with libg++ 2.3.10
  15. + 
  16. +  *.cc, *.h:: ++jrb
  17. +     sync up with libg++ 2.3.91
  18. + 
  19. +  *.cc, *.h:: ++jrb
  20. +     sync up with libg++ 2.4.0
  21. + 
  22. + ---------------------------- Patchlevel 20 -----------------------------------
  23. *** 1.14    1993/05/29 21:16:07
  24. --- PatchLev.h    1993/07/13 17:38:44
  25. ***************
  26. *** 1,5 ****
  27.   
  28. ! #define    PatchLevel "19"
  29.   
  30.   /*
  31.    *    the Patch Level above is to identify the version
  32. --- 1,5 ----
  33.   
  34. ! #define    PatchLevel "20"
  35.   
  36.   /*
  37.    *    the Patch Level above is to identify the version
  38. *** 1.4    1992/06/03 02:12:17
  39. --- dtoa.cc    1993/07/13 17:38:46
  40. ***************
  41. *** 30,35 ****
  42. --- 30,36 ----
  43.   #define M_LN10        2.30258509299404568402
  44.   #endif
  45.   
  46. + #ifdef __GNUC__ /* cfront cannot compile this routine */
  47.   // OBSOLETE ROUTINE!
  48.   
  49.   char* dtoa(double fpnum,  char cvt, int width, int prec)
  50. ***************
  51. *** 336,339 ****
  52.     
  53.     return fmtbase;
  54.   }
  55. ! 
  56. --- 337,340 ----
  57.     
  58.     return fmtbase;
  59.   }
  60. ! #endif
  61. *** 1.4    1993/02/05 04:59:04
  62. --- editbuf.cc    1993/07/13 17:38:46
  63. ***************
  64. *** 15,26 ****
  65.   //    License along with this library; if not, write to the Free
  66.   //    Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  67.   
  68. - #include <ioprivat.h>
  69. - #include <editbuf.h>
  70. - #include <stddef.h>
  71.   #ifdef __GNUG__
  72.   #pragma implementation
  73.   #endif
  74.   
  75.   /* NOTE: Some of the code here is taken from GNU emacs */
  76.   /* Hence this file falls under the GNU License! */
  77. --- 15,26 ----
  78.   //    License along with this library; if not, write to the Free
  79.   //    Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  80.   
  81.   #ifdef __GNUG__
  82.   #pragma implementation
  83.   #endif
  84. + #include <ioprivat.h>
  85. + #include <editbuf.h>
  86. + #include <stddef.h>
  87.   
  88.   /* NOTE: Some of the code here is taken from GNU emacs */
  89.   /* Hence this file falls under the GNU License! */
  90. *** 1.2    1992/06/03 02:12:17
  91. --- error.cc    1993/07/13 17:38:46
  92. ***************
  93. *** 21,26 ****
  94. --- 21,28 ----
  95.   #include <builtin.h>
  96.   #include <osfcn.h>
  97.   
  98. + extern "C" _VOLATILE_VOID abort();
  99. + 
  100.   _VOLATILE_VOID default_one_arg_error_handler(const char* msg)
  101.   {
  102.     fputs("Error: ", stderr);
  103. *** 1.11    1993/05/29 21:16:07
  104. --- filebuf.cc    1993/07/13 17:38:47
  105. ***************
  106. *** 342,349 ****
  107.       streampos delta = gptr() - egptr();
  108.       if (in_backup())
  109.           delta -= eGptr() - Gbase();
  110. !     if (sys_seek(delta, ios::cur) == EOF)
  111. !         return EOF;
  112.       }
  113.       // FIXME: Cleanup - can this be shared?
  114.   //    setg(base(), ptr, ptr);
  115. --- 342,352 ----
  116.       streampos delta = gptr() - egptr();
  117.       if (in_backup())
  118.           delta -= eGptr() - Gbase();
  119. !     _G_fpos_t new_pos = sys_seek(delta, ios::cur);
  120. !     if (new_pos == EOF)
  121. !       return EOF;
  122. !     _fb._offset = new_pos;
  123. !     setg(eback(), gptr(), gptr());
  124.       }
  125.       // FIXME: Cleanup - can this be shared?
  126.   //    setg(base(), ptr, ptr);
  127. *** 1.4    1993/01/17 03:34:31
  128. --- fstream.cc    1993/07/13 17:38:47
  129. ***************
  130. *** 15,26 ****
  131.   //    License along with this library; if not, write to the Free
  132.   //    Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  133.   
  134. - #define _STREAM_COMPAT
  135. - #include <ioprivat.h>
  136. - #include <fstream.h>
  137.   #ifdef __GNUG__
  138.   #pragma implementation
  139.   #endif
  140.   
  141.   fstreambase::fstreambase()
  142.   {
  143. --- 15,26 ----
  144.   //    License along with this library; if not, write to the Free
  145.   //    Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  146.   
  147.   #ifdef __GNUG__
  148.   #pragma implementation
  149.   #endif
  150. + #define _STREAM_COMPAT
  151. + #include <ioprivat.h>
  152. + #include <fstream.h>
  153.   
  154.   fstreambase::fstreambase()
  155.   {
  156. *** 1.5    1993/02/05 04:59:04
  157. --- igetline.cc    1993/07/13 17:38:48
  158. ***************
  159. *** 16,21 ****
  160. --- 16,22 ----
  161.   //    Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  162.   
  163.   #include <iostream.h>
  164. + #include <string.h>
  165.   
  166.   istream& istream::getline(char* buf, _G_size_t len, char delim)
  167.   {
  168. *** 1.3    1993/02/05 04:59:04
  169. --- indstrea.cc    1993/07/13 17:38:48
  170. ***************
  171. *** 15,26 ****
  172.   //    License along with this library; if not, write to the Free
  173.   //    Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  174.   
  175. - #include <indstrea.h>
  176. - 
  177.   #ifdef __GNUG__
  178.   #pragma implementation
  179.   #endif
  180.   
  181.   indirectbuf::indirectbuf(streambuf *get, streambuf *put, int delete_mode)
  182.   : streambuf()
  183.   {
  184. --- 15,26 ----
  185.   //    License along with this library; if not, write to the Free
  186.   //    Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  187.   
  188.   #ifdef __GNUG__
  189.   #pragma implementation
  190.   #endif
  191.   
  192. + #include <indstrea.h>
  193. + 
  194.   indirectbuf::indirectbuf(streambuf *get, streambuf *put, int delete_mode)
  195.   : streambuf()
  196.   {
  197. *** 1.10    1993/02/05 04:59:04
  198. --- iostream.cc    1993/07/13 17:38:49
  199. ***************
  200. *** 50,61 ****
  201.   {
  202.       if (ipfx1()) {
  203.       int ch = _strbuf->sbumpc();
  204. !     if (ch == EOF) set(ios::eofbit|ios::failbit);
  205. !     else c = (char)ch;
  206.       }
  207.       return *this;
  208.   }
  209.   
  210.   istream& istream::ignore(_G_size_t n1 /* = 1 */, int delim /* = EOF */)
  211.   {
  212.       long n = n1;
  213. --- 50,79 ----
  214.   {
  215.       if (ipfx1()) {
  216.       int ch = _strbuf->sbumpc();
  217. !     if (ch == EOF) {
  218. !       set(ios::eofbit|ios::failbit);
  219. !       _gcount = 0;
  220. !     }
  221. !     else {
  222. !       c = (char)ch;
  223. !       _gcount = 1;
  224. !     }
  225.       }
  226.       return *this;
  227.   }
  228.   
  229. + int istream::peek()
  230. + {
  231. +   if (!good())
  232. +     return EOF;
  233. +   if (_tie && rdbuf()->in_avail() == 0)
  234. +     _tie->flush();
  235. +   int ch = _strbuf->sgetc();
  236. +   if (ch == EOF)
  237. +     set(ios::eofbit);
  238. +   return ch;
  239. + }
  240. + 
  241.   istream& istream::ignore(_G_size_t n1 /* = 1 */, int delim /* = EOF */)
  242.   {
  243.       long n = n1;
  244. ***************
  245. *** 151,186 ****
  246.   
  247.   istream& istream::operator>>(char* ptr)
  248.   {
  249. !     if (ipfx0()) {
  250. !     register streambuf* sb = _strbuf;
  251.       int ch = sb->sbumpc();
  252.       if (ch == EOF)
  253. !         set(ios::eofbit|ios::failbit);
  254. !     else {
  255. !         int w = width(0);
  256.           sb->sputbackc(ch);
  257. !         for (;;) {
  258. !         ch = sb->sbumpc();
  259. !         if (ch == EOF) {
  260. !             set(ios::eofbit);
  261. !             break;
  262. !         }
  263. !         else if (isspace(ch)) {
  264. !             sb->sputbackc(ch);
  265. !             break;
  266. !         }
  267. !         else if (w == 1) {
  268. !             set(ios::failbit);
  269. !             sb->sputbackc(ch);
  270. !             break;
  271. !         }
  272. !         else *ptr++ = ch;
  273. !         w--;
  274. !         }
  275. !     }
  276. !     }
  277. !     *ptr = '\0';
  278. !     return *this;
  279.   }
  280.   
  281.   #if defined(__GNUC__) && (!defined(atarist))
  282. --- 169,203 ----
  283.   
  284.   istream& istream::operator>>(char* ptr)
  285.   {
  286. !   register char *p = ptr;
  287. !   int w = width(0);
  288. !   if (ipfx0()) {
  289. !     register streambuf* sb = _strbuf;
  290. !     for (;;)
  291. !       {
  292.       int ch = sb->sbumpc();
  293.       if (ch == EOF)
  294. !       {
  295. !         set(p == ptr ? (ios::eofbit|ios::failbit) : (ios::eofbit));
  296. !         break;
  297. !       }
  298. !     else if (isspace(ch))
  299. !       {
  300.           sb->sputbackc(ch);
  301. !         break;
  302. !       }
  303. !     else if (w == 1)
  304. !       {
  305. !         set(ios::failbit);
  306. !         sb->sputbackc(ch);
  307. !         break;
  308. !       }
  309. !     else *p++ = ch;
  310. !     w--;
  311. !       }
  312. !   }
  313. !   *p = '\0';
  314. !   return *this;
  315.   }
  316.   
  317.   #if defined(__GNUC__) && (!defined(atarist))
  318. ***************
  319. *** 323,328 ****
  320. --- 340,350 ----
  321.   ostream& ostream::operator<<(char c)
  322.   {
  323.       if (opfx()) {
  324. + #if 1
  325. +     // This is what the cfront implementation does.
  326. +     _strbuf->sputc(c);
  327. + #else
  328. +     // This is what cfront documentation and current ANSI drafts say.
  329.       int w = width(0);
  330.       char fill_char = fill();
  331.       register int padding = w > 0 ? w - 1 : 0;
  332. ***************
  333. *** 332,337 ****
  334. --- 354,360 ----
  335.       sb->sputc(c);
  336.       if (flags() & ios::left) // Left adjustment.
  337.           while (--padding >= 0) sb->sputc(fill_char);
  338. + #endif
  339.       osfx();
  340.       }
  341.       return *this;
  342. ***************
  343. *** 355,366 ****
  344.       // Note that we use separate code for decimal, octal, and hex,
  345.       // so we can divide by optimizable constants.
  346.       if ((stream.flags() & ios::basefield) == ios::oct) { // Octal
  347. -     if ((stream.flags() & ios::showbase) && (val != 0))
  348. -         show_base = "0", show_base_len = 1;
  349.       do {
  350.           *--buf_ptr = (val & 7) + '0';
  351.           val = val >> 3;
  352.       } while (val != 0);
  353.       }
  354.       else if ((stream.flags() & ios::basefield) == ios::hex) { // Hex
  355.       char *xdigs = (stream.flags() & ios::uppercase) ? "0123456789ABCDEF0X"
  356. --- 378,389 ----
  357.       // Note that we use separate code for decimal, octal, and hex,
  358.       // so we can divide by optimizable constants.
  359.       if ((stream.flags() & ios::basefield) == ios::oct) { // Octal
  360.       do {
  361.           *--buf_ptr = (val & 7) + '0';
  362.           val = val >> 3;
  363.       } while (val != 0);
  364. +     if ((stream.flags() & ios::showbase) && (val != 0))
  365. +         *--buf_ptr = '0';
  366.       }
  367.       else if ((stream.flags() & ios::basefield) == ios::hex) { // Hex
  368.       char *xdigs = (stream.flags() & ios::uppercase) ? "0123456789ABCDEF0X"
  369. ***************
  370. *** 369,382 ****
  371.           *--buf_ptr = xdigs[val & 15];
  372.           val = val >> 4;
  373.       } while (val != 0);
  374. !     if (stream.flags() & ios::showbase) {
  375.           show_base = xdigs + 16; // Either "0X" or "0x".
  376.           show_base_len = 2;
  377.       }
  378.       }
  379.       else { // Decimal
  380. -     if (val != 0 && sign > 0 && (stream.flags() & ios::showpos))
  381. -         show_pos=1;
  382.   #ifdef __GNUC__
  383.       // Optimization:  Only use long long when we need to.
  384.       while (val > UINT_MAX) {
  385. --- 392,403 ----
  386.           *--buf_ptr = xdigs[val & 15];
  387.           val = val >> 4;
  388.       } while (val != 0);
  389. !     if ((stream.flags() & ios::showbase) && (val != 0)) {
  390.           show_base = xdigs + 16; // Either "0X" or "0x".
  391.           show_base_len = 2;
  392.       }
  393.       }
  394.       else { // Decimal
  395.   #ifdef __GNUC__
  396.       // Optimization:  Only use long long when we need to.
  397.       while (val > UINT_MAX) {
  398. ***************
  399. *** 392,397 ****
  400. --- 413,420 ----
  401.           *--buf_ptr = (ival % 10) + '0';
  402.           ival /= 10;
  403.       } while (ival != 0);
  404. +     if (sign > 0 && (stream.flags() & ios::showpos))
  405. +         show_pos=1;
  406.       }
  407.   
  408.       _G_size_t buf_len = buf+WRITE_BUF_SIZE - buf_ptr;
  409. ***************
  410. *** 501,517 ****
  411.   
  412.       int fpprec = 0; // 'Extra' (suppressed) floating precision.
  413.       int prec = precision();
  414. !     if (prec < 0) prec = 6; // default.
  415. !     else if (prec > MAXFRACT) {
  416.           if (flags() & (ios::fixed|ios::scientific) & ios::showpos)
  417.           fpprec = prec - MAXFRACT;
  418.           prec = MAXFRACT;
  419.       }
  420.   
  421.       // Do actual conversion.
  422.   #ifdef USE_DTOA
  423.       if (__outfloat(n, rdbuf(), format_char, width(0),
  424. !                precision(), flags(), 0, fill()) < 0)
  425.           set(ios::badbit|ios::failbit); // ??
  426.   #else
  427.       int negative;
  428. --- 524,541 ----
  429.   
  430.       int fpprec = 0; // 'Extra' (suppressed) floating precision.
  431.       int prec = precision();
  432. !     if (prec > MAXFRACT) {
  433.           if (flags() & (ios::fixed|ios::scientific) & ios::showpos)
  434.           fpprec = prec - MAXFRACT;
  435.           prec = MAXFRACT;
  436.       }
  437. +     else if (prec <= 0 && !(flags() & ios::fixed))
  438. +       prec = 6; /* default */
  439.   
  440.       // Do actual conversion.
  441.   #ifdef USE_DTOA
  442.       if (__outfloat(n, rdbuf(), format_char, width(0),
  443. !                prec, flags(), 0, fill()) < 0)
  444.           set(ios::badbit|ios::failbit); // ??
  445.   #else
  446.       int negative;
  447. ***************
  448. *** 519,525 ****
  449.       int sign = '\0';
  450.       char *cp = buf;
  451.       *cp = 0;
  452. !     int size = __cvt_double(n, precision(),
  453.                   flags() & ios::showpoint ? 0x80 : 0,
  454.                   &negative,
  455.                   format_char, cp, buf + sizeof(buf));
  456. --- 543,549 ----
  457.       int sign = '\0';
  458.       char *cp = buf;
  459.       *cp = 0;
  460. !     int size = __cvt_double(n, prec,
  461.                   flags() & ios::showpoint ? 0x80 : 0,
  462.                   &negative,
  463.                   format_char, cp, buf + sizeof(buf));
  464. ***************
  465. *** 581,587 ****
  466.       return *this;
  467.   }
  468.   
  469. ! ostream& ostream::operator<<(void *p)
  470.   {
  471.       if (opfx()) {
  472.       form("%p", p);
  473. --- 605,611 ----
  474.       return *this;
  475.   }
  476.   
  477. ! ostream& ostream::operator<<(const void *p)
  478.   {
  479.       if (opfx()) {
  480.       form("%p", p);
  481. ***************
  482. *** 664,671 ****
  483.   
  484.   ostream& flush(ostream& outs)
  485.   {
  486. !     outs.rdbuf()->overflow(EOF);
  487. !     return outs;
  488.   }
  489.   
  490.   istream& ws(istream& ins)
  491. --- 688,694 ----
  492.   
  493.   ostream& flush(ostream& outs)
  494.   {
  495. !   return outs.flush();
  496.   }
  497.   
  498.   istream& ws(istream& ins)
  499. ***************
  500. *** 699,705 ****
  501.   
  502.   ostream& ends(ostream& outs)
  503.   {
  504. !     outs.put(0);
  505.       return outs;
  506.   }
  507.   
  508. --- 722,728 ----
  509.   
  510.   ostream& ends(ostream& outs)
  511.   {
  512. !     outs.put('\0');
  513.       return outs;
  514.   }
  515.   
  516. *** 1.12    1993/03/29 03:53:00
  517. --- mincl    1993/07/13 17:38:50
  518. ***************
  519. *** 18,24 ****
  520.   IOSRC = editbuf.cc filebuf.cc fstream.cc igetline.cc indstrea.cc iostream.cc \
  521.   makebuf.cc parsestr.cc sbufvfor.cc sbufvsca.cc sgetline.cc stdstrbu.cc \
  522.   stdstrea.cc stream.cc streambu.cc strstrea.cc xplotfil.cc xsfile.cc \
  523. ! igetsb.cc iodtoa.cc outfloat.cc iomanip.cc stdiostr.cc
  524.   
  525.   OBJ = ident.o $(LIBSRC:.cc=.o) $(IOSRC:.cc=.o)
  526.   
  527. --- 18,24 ----
  528.   IOSRC = editbuf.cc filebuf.cc fstream.cc igetline.cc indstrea.cc iostream.cc \
  529.   makebuf.cc parsestr.cc sbufvfor.cc sbufvsca.cc sgetline.cc stdstrbu.cc \
  530.   stdstrea.cc stream.cc streambu.cc strstrea.cc xplotfil.cc xsfile.cc \
  531. ! igetsb.cc floatcon.cc outfloat.cc iomanip.cc stdiostr.cc
  532.   
  533.   OBJ = ident.o $(LIBSRC:.cc=.o) $(IOSRC:.cc=.o)
  534.   
  535. *** 1.5    1993/05/29 21:16:07
  536. --- outfloat.cc    1993/07/13 17:38:51
  537. ***************
  538. *** 49,69 ****
  539.         case 'f':
  540.       mode = 3;
  541.       break;
  542. -       case 'F':
  543. -     exp = 'e';
  544. -     mode = 0;
  545. -     skip_zeroes = 1;
  546. -     type = 'g';
  547. -     break;
  548.         case 'e':
  549. -     exp = 'e';
  550. -     mode = 2;
  551. -     precision++;  // Add one to include digit before decimal point.
  552. -     break;
  553.         case 'E':
  554. !     exp = 'E';
  555.       mode = 2;
  556. !     precision++;  // Add one to include digit before decimal point.
  557.       break;
  558.         case 'g':
  559.         case 'G':
  560. --- 49,60 ----
  561.         case 'f':
  562.       mode = 3;
  563.       break;
  564.         case 'e':
  565.         case 'E':
  566. !     exp = type;
  567.       mode = 2;
  568. !     if (precision != 999)
  569. !       precision++;  // Add one to include digit before decimal point.
  570.       break;
  571.         case 'g':
  572.         case 'G':
  573. ***************
  574. *** 76,85 ****
  575. --- 67,80 ----
  576.       break;
  577.       }
  578.       /* Do the actual convension */
  579. +     if (precision == 999 && mode != 3)
  580. +       mode = 0;
  581.       char *p = dtoa(value, mode, precision, &decpt, &sign, &end);
  582.       register int i;
  583.       int useful_digits = end-p;
  584.       char *exponent_start = EBUF_END;
  585. +     if (mode == 0)
  586. +       precision = useful_digits;
  587.       // Check if we need to emit an exponent.
  588.       if (mode != 3 && decpt != 9999) {
  589.       i = decpt - 1;
  590. *** 1.2    1993/02/05 04:59:04
  591. --- procbuf.cc    1993/07/13 17:38:51
  592. ***************
  593. *** 25,30 ****
  594. --- 25,31 ----
  595.   
  596.   #ifndef FORK
  597.   #define FORK vfork
  598. + extern "C" _G_pid_t vfork(void);
  599.   #endif
  600.   
  601.   procbuf::procbuf(const char *command, int mode) : filebuf()
  602. *** 1.8    1992/12/14 19:14:32
  603. --- regex.cc    1993/07/13 17:38:52
  604. ***************
  605. *** 31,36 ****
  606. --- 31,37 ----
  607.   #else
  608.   #ifdef sparc
  609.   #include <alloca.h>
  610. + extern "C" void *__builtin_alloca(...);
  611.   #else
  612.   #ifdef _AIX
  613.   #pragma alloca
  614. ***************
  615. *** 223,229 ****
  616.   
  617.   /* Store NUMBER in two contiguous bytes starting at DESTINATION.  */
  618.   #define STORE_NUMBER(destination, number)                \
  619. !   { (destination)[0] = (number) & 0377;                    \
  620.       (destination)[1] = (number) >> 8; }
  621.     
  622.   /* Same as STORE_NUMBER, except increment the destination pointer to
  623. --- 224,230 ----
  624.   
  625.   /* Store NUMBER in two contiguous bytes starting at DESTINATION.  */
  626.   #define STORE_NUMBER(destination, number)                \
  627. !   { (destination)[0] = (char)((number) & 0377);                \
  628.       (destination)[1] = (number) >> 8; }
  629.     
  630.   /* Same as STORE_NUMBER, except increment the destination pointer to
  631. ***************
  632. *** 2504,2510 ****
  633.             if (d >= string1 && d <= end1)
  634.           dend = end_match_1;
  635.             /* Restore register info.  */
  636. !           last_used_reg = (short) *--stackp;
  637.             
  638.             /* Make the ones that weren't saved -1 or 0 again.  */
  639.             for (this_reg = RE_NREGS - 1; this_reg > last_used_reg; this_reg--)
  640. --- 2505,2511 ----
  641.             if (d >= string1 && d <= end1)
  642.           dend = end_match_1;
  643.             /* Restore register info.  */
  644. !           last_used_reg = (short) (int) *--stackp;
  645.             
  646.             /* Make the ones that weren't saved -1 or 0 again.  */
  647.             for (this_reg = RE_NREGS - 1; this_reg > last_used_reg; this_reg--)
  648. ***************
  649. *** 2550,2556 ****
  650.   
  651.   /* Entry points compatible with 4.2 BSD regex library.  */
  652.   
  653. ! #ifndef emacs
  654.   
  655.   static struct re_pattern_buffer re_comp_buf;
  656.   
  657. --- 2551,2557 ----
  658.   
  659.   /* Entry points compatible with 4.2 BSD regex library.  */
  660.   
  661. ! #if 0
  662.   
  663.   static struct re_pattern_buffer re_comp_buf;
  664.   
  665. *** 1.6    1993/01/17 03:34:31
  666. --- sbufvsca.cc    1993/07/13 17:38:52
  667. ***************
  668. *** 97,103 ****
  669.       int nread;        /* number of characters consumed from fp */
  670.       // Assignments to base and ccfn are just to suppress warnings from gcc.
  671.       int base = 0;        /* base argument to strtol/strtoul */
  672. !     u_long (*ccfn)(const char*, char**, int) = 0;
  673.       // conversion function (strtol/strtoul)
  674.       char ccltab[256];    /* character class table for %[...] */
  675.       char buf[BUF];        /* buffer for numeric conversions */
  676. --- 97,104 ----
  677.       int nread;        /* number of characters consumed from fp */
  678.       // Assignments to base and ccfn are just to suppress warnings from gcc.
  679.       int base = 0;        /* base argument to strtol/strtoul */
  680. !     typedef u_long (*strtoulfn)(const char*, char**, int);
  681. !     strtoulfn ccfn = 0;
  682.       // conversion function (strtol/strtoul)
  683.       char ccltab[256];    /* character class table for %[...] */
  684.       char buf[BUF];        /* buffer for numeric conversions */
  685. ***************
  686. *** 178,190 ****
  687.               /* FALLTHROUGH */
  688.           case 'd':
  689.               c = CT_INT;
  690. !             ccfn = (u_long (*)(const char, char**, int))strtol;
  691.               base = 10;
  692.               break;
  693.   
  694.           case 'i':
  695.               c = CT_INT;
  696. !             ccfn = (u_long (*)(const char, char**, int))strtol;
  697.               base = 0;
  698.               break;
  699.   
  700. --- 179,191 ----
  701.               /* FALLTHROUGH */
  702.           case 'd':
  703.               c = CT_INT;
  704. !             ccfn = (strtoulfn)strtol;
  705.               base = 10;
  706.               break;
  707.   
  708.           case 'i':
  709.               c = CT_INT;
  710. !             ccfn = (strtoulfn)strtol;
  711.               base = 0;
  712.               break;
  713.   
  714. ***************
  715. *** 203,211 ****
  716.               base = 10;
  717.               break;
  718.   
  719. !         case 'X':    /* compat   XXX */
  720. !             flags |= LONG;
  721. !             /* FALLTHROUGH */
  722.           case 'x':
  723.               flags |= PFXOK;    /* enable 0x prefixing */
  724.               c = CT_INT;
  725. --- 204,210 ----
  726.               base = 10;
  727.               break;
  728.   
  729. !         case 'X':
  730.           case 'x':
  731.               flags |= PFXOK;    /* enable 0x prefixing */
  732.               c = CT_INT;
  733. ***************
  734. *** 214,223 ****
  735.               break;
  736.   
  737.   #ifdef FLOATING_POINT
  738. !         case 'E':    /* compat   XXX */
  739. !         case 'F':    /* compat */
  740. !             flags |= LONG;
  741. !             /* FALLTHROUGH */
  742.           case 'e': case 'f': case 'g':
  743.               c = CT_FLOAT;
  744.               break;
  745. --- 213,219 ----
  746.               break;
  747.   
  748.   #ifdef FLOATING_POINT
  749. !         case 'E': case 'F':
  750.           case 'e': case 'f': case 'g':
  751.               c = CT_FLOAT;
  752.               break;
  753. ***************
  754. *** 267,273 ****
  755.               if (isupper(c))
  756.                   flags |= LONG;
  757.               c = CT_INT;
  758. !             ccfn = (u_long (*)(const char, char**, int))strtol;
  759.               base = 10;
  760.               break;
  761.           }
  762. --- 263,269 ----
  763.               if (isupper(c))
  764.                   flags |= LONG;
  765.               c = CT_INT;
  766. !             ccfn = (strtoulfn)strtol;
  767.               base = 10;
  768.               break;
  769.           }
  770. ***************
  771. *** 283,289 ****
  772.            * that suppress this.
  773.            */
  774.           if ((flags & NOSKIP) == 0) {
  775. !             n = *_gptr;
  776.               while (isspace(n)) {
  777.               _gptr++;
  778.               nread++;
  779. --- 279,285 ----
  780.            * that suppress this.
  781.            */
  782.           if ((flags & NOSKIP) == 0) {
  783. !             n = (unsigned char)*_gptr;
  784.               while (isspace(n)) {
  785.               _gptr++;
  786.               nread++;
  787. ***************
  788. *** 343,349 ****
  789.               /* take only those things in the class */
  790.               if (flags & SUPPRESS) {
  791.                   n = 0;
  792. !                 while (ccltab[*_gptr]) {
  793.                       n++, _gptr++;
  794.                       if (--width == 0)
  795.                       break;
  796. --- 339,345 ----
  797.               /* take only those things in the class */
  798.               if (flags & SUPPRESS) {
  799.                   n = 0;
  800. !                 while (ccltab[(unsigned char)*_gptr]) {
  801.                       n++, _gptr++;
  802.                       if (--width == 0)
  803.                       break;
  804. ***************
  805. *** 358,364 ****
  806.                       goto match_failure;
  807.               } else {
  808.                   p0 = p = va_arg(ap, char *);
  809. !                 while (ccltab[*_gptr]) {
  810.                   *p++ = *_gptr++;
  811.                   if (--width == 0)
  812.                       break;
  813. --- 354,360 ----
  814.                       goto match_failure;
  815.               } else {
  816.                   p0 = p = va_arg(ap, char *);
  817. !                 while (ccltab[(unsigned char)*_gptr]) {
  818.                   *p++ = *_gptr++;
  819.                   if (--width == 0)
  820.                       break;
  821. ***************
  822. *** 384,390 ****
  823.                   width = ~0;
  824.               if (flags & SUPPRESS) {
  825.                   n = 0;
  826. !                 while (!isspace(*_gptr)) {
  827.                       n++, _gptr++;
  828.                       if (--width == 0)
  829.                           break;
  830. --- 380,386 ----
  831.                   width = ~0;
  832.               if (flags & SUPPRESS) {
  833.                   n = 0;
  834. !                 while (!isspace((unsigned char)*_gptr)) {
  835.                       n++, _gptr++;
  836.                       if (--width == 0)
  837.                           break;
  838. ***************
  839. *** 396,402 ****
  840.                   nread += n;
  841.               } else {
  842.                   p0 = p = va_arg(ap, char *);
  843. !                 while (!isspace(*_gptr)) {
  844.                       *p++ = *_gptr++;
  845.                       if (--width == 0)
  846.                           break;
  847. --- 392,398 ----
  848.                   nread += n;
  849.               } else {
  850.                   p0 = p = va_arg(ap, char *);
  851. !                 while (!isspace((unsigned char)*_gptr)) {
  852.                       *p++ = *_gptr++;
  853.                       if (--width == 0)
  854.                           break;
  855. ***************
  856. *** 417,423 ****
  857.                   width = sizeof(buf) - 1;
  858.               flags |= SIGNOK | NDIGITS | NZDIGITS;
  859.               for (p = buf; width; width--) {
  860. !                 c = *_gptr;
  861.                   /*
  862.                    * Switch on the character; `goto ok'
  863.                    * if we accept it as a part of number.
  864. --- 413,419 ----
  865.                   width = sizeof(buf) - 1;
  866.               flags |= SIGNOK | NDIGITS | NZDIGITS;
  867.               for (p = buf; width; width--) {
  868. !                 c = (unsigned char)*_gptr;
  869.                   /*
  870.                    * Switch on the character; `goto ok'
  871.                    * if we accept it as a part of number.
  872. ***************
  873. *** 548,554 ****
  874.                   width = sizeof(buf) - 1;
  875.               flags |= SIGNOK | NDIGITS | DPTOK | EXPOK;
  876.               for (p = buf; width; width--) {
  877. !                 c = *_gptr;
  878.                   /*
  879.                    * This code mimicks the integer conversion
  880.                    * code, but is much simpler.
  881. --- 544,550 ----
  882.                   width = sizeof(buf) - 1;
  883.               flags |= SIGNOK | NDIGITS | DPTOK | EXPOK;
  884.               for (p = buf; width; width--) {
  885. !                 c = (unsigned char)*_gptr;
  886.                   /*
  887.                    * This code mimicks the integer conversion
  888.                    * code, but is much simpler.
  889. *** 1.2    1993/02/05 04:59:04
  890. --- stdiostr.cc    1993/07/13 17:38:53
  891. ***************
  892. *** 57,65 ****
  893.   
  894.   _G_ssize_t stdiobuf::sys_write(const void *buf, _G_size_t n)
  895.   {
  896. !     return fwrite(buf, 1, n, _file);
  897.       if (_fb._offset >= 0)
  898.       _fb._offset += n;
  899.   }
  900.   
  901.   _G_fpos_t stdiobuf::sys_seek(_G_fpos_t offset, _seek_dir dir)
  902. --- 57,66 ----
  903.   
  904.   _G_ssize_t stdiobuf::sys_write(const void *buf, _G_size_t n)
  905.   {
  906. !     _G_ssize_t count = fwrite(buf, 1, n, _file);
  907.       if (_fb._offset >= 0)
  908.       _fb._offset += n;
  909. +     return count;
  910.   }
  911.   
  912.   _G_fpos_t stdiobuf::sys_seek(_G_fpos_t offset, _seek_dir dir)
  913. *** 1.6    1993/02/05 04:59:04
  914. --- stdstrbu.cc    1993/07/13 17:38:53
  915. ***************
  916. *** 70,80 ****
  917.        0, 0, 0, 0, 0, 0, 0, 0, CHAIN, 0, 0, 0, 0, 0}
  918.   
  919.   #define DEF_FILEBUF(NAME, FD, CHAIN, FLAGS) \
  920. !   _fake_filebuf NAME[1] = {{FILEBUF_LITERAL(CHAIN, FLAGS), vt_filebuf, {FD}}};
  921.   
  922.   DEF_FILEBUF(__std_filebuf_0, 0, 0, _S_NO_WRITES);
  923. ! DEF_FILEBUF(__std_filebuf_1, 1, (streambuf*)__std_filebuf_0, _S_NO_READS);
  924. ! DEF_FILEBUF(__std_filebuf_2, 2, (streambuf*)__std_filebuf_1,
  925.           _S_NO_READS+_S_UNBUFFERED);
  926.   
  927.   // Nest define the stdiobuf-bases objects.
  928. --- 70,80 ----
  929.        0, 0, 0, 0, 0, 0, 0, 0, CHAIN, 0, 0, 0, 0, 0}
  930.   
  931.   #define DEF_FILEBUF(NAME, FD, CHAIN, FLAGS) \
  932. !   _fake_filebuf NAME = {FILEBUF_LITERAL(CHAIN, FLAGS), vt_filebuf, {FD}};
  933.   
  934.   DEF_FILEBUF(__std_filebuf_0, 0, 0, _S_NO_WRITES);
  935. ! DEF_FILEBUF(__std_filebuf_1, 1, (streambuf*)&__std_filebuf_0, _S_NO_READS);
  936. ! DEF_FILEBUF(__std_filebuf_2, 2, (streambuf*)&__std_filebuf_1,
  937.           _S_NO_READS+_S_UNBUFFERED);
  938.   
  939.   // Nest define the stdiobuf-bases objects.
  940. ***************
  941. *** 82,88 ****
  942.   #if !defined(vt_stdiobuf)
  943.   #ifndef __GNUG__
  944.   // This works for cfront.
  945. ! #define vt_stdiobuf __vtbl__7stdiobuf
  946.   extern char vt_stdiobuf[1];
  947.   #elif _G_DOLLAR_IN_LABEL
  948.   extern char vt_stdiobuf[1] asm(UNDERSCORE "_vt$stdiobuf");
  949. --- 82,88 ----
  950.   #if !defined(vt_stdiobuf)
  951.   #ifndef __GNUG__
  952.   // This works for cfront.
  953. ! #define vt_stdiobuf __vtbl__8stdiobuf
  954.   extern char vt_stdiobuf[1];
  955.   #elif _G_DOLLAR_IN_LABEL
  956.   extern char vt_stdiobuf[1] asm(UNDERSCORE "_vt$stdiobuf");
  957. ***************
  958. *** 103,109 ****
  959.        FILEBUF_LITERAL(CHAIN, (FLAGS)|_S_UNBUFFERED),\
  960.        vt_stdiobuf, {FD}, FILE}};
  961.   
  962. ! DEF_STDIOBUF(__stdin_stdiobuf, stdin, 0, (streambuf*)__std_filebuf_2,
  963.            _S_NO_WRITES);
  964.   DEF_STDIOBUF(__stdout_stdiobuf, stdout, 1, (streambuf*)__stdin_stdiobuf,
  965.            _S_NO_READS);
  966. --- 103,109 ----
  967.        FILEBUF_LITERAL(CHAIN, (FLAGS)|_S_UNBUFFERED),\
  968.        vt_stdiobuf, {FD}, FILE}};
  969.   
  970. ! DEF_STDIOBUF(__stdin_stdiobuf, stdin, 0, (streambuf*)&__std_filebuf_2,
  971.            _S_NO_WRITES);
  972.   DEF_STDIOBUF(__stdout_stdiobuf, stdout, 1, (streambuf*)__stdin_stdiobuf,
  973.            _S_NO_READS);
  974. *** 1.5    1993/01/17 03:34:31
  975. --- stdstrea.cc    1993/07/13 17:38:53
  976. ***************
  977. *** 63,83 ****
  978.   #undef cerr
  979.   #undef clog
  980.   
  981. ! #ifdef __GNUG__
  982.   #define PAD 0 /* g++ allows 0-length arrays. */
  983.   #else
  984.   #define PAD 1
  985.   #endif
  986.   struct _fake_istream {
  987.       struct myfields {
  988.       _ios_fields *vb; /* pointer to virtual base class ios */
  989.       _G_ssize_t _gcount;
  990.       } mine;
  991.       _ios_fields base;
  992.       char filler[sizeof(struct istream)-sizeof(struct _ios_fields)+PAD];
  993.   };
  994.   struct _fake_ostream {
  995.       struct myfields {
  996.       _ios_fields *vb; /* pointer to virtual base class ios */
  997.       } mine;
  998.       _ios_fields base;
  999. --- 63,93 ----
  1000.   #undef cerr
  1001.   #undef clog
  1002.   
  1003. ! #ifdef __GNUC__
  1004.   #define PAD 0 /* g++ allows 0-length arrays. */
  1005.   #else
  1006.   #define PAD 1
  1007.   #endif
  1008.   struct _fake_istream {
  1009.       struct myfields {
  1010. + #ifdef __GNUC__
  1011.       _ios_fields *vb; /* pointer to virtual base class ios */
  1012.       _G_ssize_t _gcount;
  1013. + #else
  1014. +     /* This is supposedly correct for cfront. */
  1015. +     _G_ssize_t _gcount;
  1016. +     void *vptr;
  1017. +     _ios_fields *vb; /* pointer to virtual base class ios */
  1018. + #endif
  1019.       } mine;
  1020.       _ios_fields base;
  1021.       char filler[sizeof(struct istream)-sizeof(struct _ios_fields)+PAD];
  1022.   };
  1023.   struct _fake_ostream {
  1024.       struct myfields {
  1025. + #ifndef __GNUC__
  1026. +     void *vptr;
  1027. + #endif
  1028.       _ios_fields *vb; /* pointer to virtual base class ios */
  1029.       } mine;
  1030.       _ios_fields base;
  1031. ***************
  1032. *** 87,101 ****
  1033.   #define STD_STR(SBUF, TIE, EXTRA_FLAGS) \
  1034.    (streambuf*)&SBUF, TIE, 0, ios::dont_close|ios::skipws|EXTRA_FLAGS, ' ',0,0,6
  1035.   
  1036. ! #define STREAM_DEF(TYPE, NAME, SBUF, TIE, EXTRA_FLAGS) \
  1037.     TYPE NAME = { {&NAME.base}, {STD_STR(SBUF, TIE, EXTRA_FLAGS) }};
  1038.   
  1039. ! STREAM_DEF(_fake_ostream, cout, COUT_SBUF, NULL, 0)
  1040. ! STREAM_DEF(_fake_ostream, cerr, CERR_SBUF, (ostream*)&cout, ios::unitbuf)
  1041. ! STREAM_DEF(_fake_istream, cin, CIN_SBUF,  (ostream*)&cout, 0)
  1042.   
  1043.   /* Only for (partial) compatibility with AT&T's library. */
  1044. ! STREAM_DEF(_fake_ostream, clog, CERR_SBUF, (ostream*)&cout, 0)
  1045.   
  1046.   // Switches between using __std_filebuf_{0,1,2} and
  1047.   // __std{in,out,err}_stdiobuf for standard streams.  This is
  1048. --- 97,120 ----
  1049.   #define STD_STR(SBUF, TIE, EXTRA_FLAGS) \
  1050.    (streambuf*)&SBUF, TIE, 0, ios::dont_close|ios::skipws|EXTRA_FLAGS, ' ',0,0,6
  1051.   
  1052. ! #ifdef __GNUC__
  1053. ! #define OSTREAM_DEF(TYPE, NAME, SBUF, TIE, EXTRA_FLAGS) \
  1054. !   TYPE NAME = { {&NAME.base}, {STD_STR(SBUF, TIE, EXTRA_FLAGS) }};
  1055. ! #define ISTREAM_DEF(TYPE, NAME, SBUF, TIE, EXTRA_FLAGS) \
  1056.     TYPE NAME = { {&NAME.base}, {STD_STR(SBUF, TIE, EXTRA_FLAGS) }};
  1057. + #else
  1058. + #define OSTREAM_DEF(TYPE, NAME, SBUF, TIE, EXTRA_FLAGS) \
  1059. +   TYPE NAME = { {0, &NAME.base}, {STD_STR(SBUF, TIE, EXTRA_FLAGS) }};
  1060. + #define ISTREAM_DEF(TYPE, NAME, SBUF, TIE, EXTRA_FLAGS) \
  1061. +   TYPE NAME = { {0, 0, &NAME.base}, {STD_STR(SBUF, TIE, EXTRA_FLAGS) }};
  1062. + #endif
  1063.   
  1064. ! OSTREAM_DEF(_fake_ostream, cout, COUT_SBUF, NULL, 0)
  1065. ! OSTREAM_DEF(_fake_ostream, cerr, CERR_SBUF, (ostream*)&cout, ios::unitbuf)
  1066. ! ISTREAM_DEF(_fake_istream, cin, CIN_SBUF,  (ostream*)&cout, 0)
  1067.   
  1068.   /* Only for (partial) compatibility with AT&T's library. */
  1069. ! OSTREAM_DEF(_fake_ostream, clog, CERR_SBUF, (ostream*)&cout, 0)
  1070.   
  1071.   // Switches between using __std_filebuf_{0,1,2} and
  1072.   // __std{in,out,err}_stdiobuf for standard streams.  This is
  1073. *** 1.8    1993/02/05 04:59:04
  1074. --- strstrea.cc    1993/07/13 17:38:54
  1075. ***************
  1076. *** 172,177 ****
  1077. --- 172,183 ----
  1078.       _len = egptr() - ptr;
  1079.   }
  1080.   
  1081. + void strstreambuf::init_static (const char *ptr, long size)
  1082. + {
  1083. +   init_static((char*)ptr, size, NULL);
  1084. +   xsetflags(_S_NO_WRITES);
  1085. + }
  1086. + 
  1087.   strstreambuf::~strstreambuf()
  1088.   {
  1089.       if (_base && !(_flags & _S_USER_BUF))
  1090. ***************
  1091. *** 182,189 ****
  1092.   streampos strstreambuf::seekoff(streamoff off, _seek_dir dir,
  1093.                       int mode /*=ios::in|ios::out*/)
  1094.   {
  1095. -     _allocate_buffer = default_alloc;
  1096. -     _free_buffer = default_free;
  1097.       size_t cur_size = pcount();
  1098.       streampos new_pos = EOF;
  1099.   
  1100. --- 188,193 ----
  1101. *** 1.7    1992/12/14 19:14:32
  1102. --- xbitset.cc    1993/07/13 17:38:55
  1103. ***************
  1104. *** 687,693 ****
  1105.     }
  1106.   }
  1107.   
  1108. ! int BitSet::previous(int p, int b) const
  1109.   {
  1110.     if (--p < 0)
  1111.       return -1;
  1112. --- 687,693 ----
  1113.     }
  1114.   }
  1115.   
  1116. ! int BitSet::prev(int p, int b) const
  1117.   {
  1118.     if (--p < 0)
  1119.       return -1;
  1120. ***************
  1121. *** 770,776 ****
  1122.     if (b == rep->virt)
  1123.       return -1;
  1124.     else
  1125. !     return previous((rep->len) * BITSETBITS, b);
  1126.   }
  1127.   
  1128.   
  1129. --- 770,776 ----
  1130.     if (b == rep->virt)
  1131.       return -1;
  1132.     else
  1133. !     return prev((rep->len) * BITSETBITS, b);
  1134.   }
  1135.   
  1136.   
  1137. ***************
  1138. *** 938,948 ****
  1139.     return s;
  1140.   }
  1141.   
  1142. ! void BitSet::printon(ostream& s, char f, char t, char star) const
  1143.   // FIXME:  Does not respect s.width()!
  1144.   {
  1145.     trim(rep);
  1146. !   register streambuf* sb = s.rdbuf();
  1147.     const unsigned short* s = rep->s;
  1148.     const unsigned short* top = &(s[rep->len - 1]);
  1149.   
  1150. --- 938,948 ----
  1151.     return s;
  1152.   }
  1153.   
  1154. ! void BitSet::printon(ostream& os, char f, char t, char star) const
  1155.   // FIXME:  Does not respect s.width()!
  1156.   {
  1157.     trim(rep);
  1158. !   register streambuf* sb = os.rdbuf();
  1159.     const unsigned short* s = rep->s;
  1160.     const unsigned short* top = &(s[rep->len - 1]);
  1161.   
  1162. *** 1.7    1992/12/14 19:14:32
  1163. --- xbitstri.cc    1993/07/13 17:38:55
  1164. ***************
  1165. *** 978,984 ****
  1166.     }
  1167.   }
  1168.   
  1169. ! int BitString::previous(int p, unsigned int b) const
  1170.   {
  1171.     if (--p < 0)
  1172.       return -1;
  1173. --- 978,984 ----
  1174.     }
  1175.   }
  1176.   
  1177. ! int BitString::prev(int p, unsigned int b) const
  1178.   {
  1179.     if (--p < 0)
  1180.       return -1;
  1181. *** 1.2    1992/11/08 00:19:13
  1182. --- xcomplex.cc    1993/07/13 17:38:56
  1183. ***************
  1184. *** 220,226 ****
  1185.   #else
  1186.     if (!s.ipfx(0))
  1187.     {
  1188. !     s.set(ios::failbit); // Redundant if using GNU iostreams.
  1189.       return s;
  1190.     }
  1191.   #endif
  1192. --- 220,226 ----
  1193.   #else
  1194.     if (!s.ipfx(0))
  1195.     {
  1196. !     s.clear(ios::failbit|s.rdstate()); // Redundant if using GNU iostreams.
  1197.       return s;
  1198.     }
  1199.   #endif
  1200. ***************
  1201. *** 242,248 ****
  1202.       else
  1203.         i = 0;
  1204.       if (ch != ')')
  1205. !       s.clear(_fail);
  1206.     }
  1207.     else
  1208.     {
  1209. --- 242,248 ----
  1210.       else
  1211.         i = 0;
  1212.       if (ch != ')')
  1213. !       s.clear(ios::failbit);
  1214.     }
  1215.     else
  1216.     {
  1217. *** 1.5    1992/12/14 19:14:32
  1218. --- xcursesw.cc    1993/07/13 17:38:56
  1219. ***************
  1220. *** 23,29 ****
  1221.   #include <values.h>
  1222.   #ifndef _OLD_STREAMS
  1223.   #include <strstream.h>
  1224. ! #include <ioprivate.h>
  1225.   #endif
  1226.   // Include CurseW.h and/or curses.h *after* iostream includes,
  1227.   // because curses.h defines a clear macro that conflicts with iostream. Sigh.
  1228. --- 23,29 ----
  1229.   #include <values.h>
  1230.   #ifndef _OLD_STREAMS
  1231.   #include <strstream.h>
  1232. ! //#include <ioprivate.h>
  1233.   #endif
  1234.   // Include CurseW.h and/or curses.h *after* iostream includes,
  1235.   // because curses.h defines a clear macro that conflicts with iostream. Sigh.
  1236. ***************
  1237. *** 38,43 ****
  1238. --- 38,61 ----
  1239.    *
  1240.    */
  1241.   
  1242. + #if !defined(_IO_MAGIC) && !defined(HAVE_VSCANF) &&!defined vsscanf
  1243. + extern "C" int _doscan(FILE *, const char*, va_list args);
  1244. + 
  1245. + static int vsscanf(char *buf, const char * fmt, va_list args)
  1246. + {
  1247. +   FILE b;
  1248. + #ifdef _IOSTRG
  1249. +   b._flag = _IOREAD|_IOSTRG;
  1250. + #else
  1251. +   b._flag = _IOREAD;
  1252. + #endif
  1253. +   b._base = (unsigned char*)buf;
  1254. +   b._ptr = (unsigned char*)buf;
  1255. +   b._cnt = BUFSIZ;
  1256. +   return _doscan(&b, fmt, args);
  1257. + }
  1258. + #endif
  1259. + 
  1260.   /*
  1261.    * varargs functions are handled conservatively:
  1262.    * They interface directly into the underlying 
  1263. ***************
  1264. *** 55,75 ****
  1265.     char buf[BUFSIZ];
  1266.     int result = wgetstr(w, buf);
  1267.     if (result == OK) {
  1268. ! #ifndef _OLD_STREAMS
  1269.       strstreambuf ss(buf, BUFSIZ);
  1270.       result = ss.vscan(fmt, args);
  1271. ! #else /* _OLD_STREAMS */
  1272. ! #ifndef HAVE_VSCANF
  1273. !       FILE b;
  1274. !       b._flag = _IOREAD|_IOSTRG;
  1275. !       b._base = buf;
  1276. !       b._ptr = buf;
  1277. !       b._cnt = BUFSIZ;
  1278. !       result = _doscan(&b, fmt, args);
  1279. ! #else /* HAVE_VSCANF */
  1280. !       result = vsscanf(buf, fmt, args);
  1281. ! #endif /* HAVE_VSCANF */
  1282. ! #endif /* _OLD_STREAMS */
  1283.     }
  1284.   #endif /* !VMS */
  1285.     va_end(args);
  1286. --- 73,85 ----
  1287.     char buf[BUFSIZ];
  1288.     int result = wgetstr(w, buf);
  1289.     if (result == OK) {
  1290. ! 
  1291. ! #ifdef _IO_MAGIC /* GNU iostreams */
  1292.       strstreambuf ss(buf, BUFSIZ);
  1293.       result = ss.vscan(fmt, args);
  1294. ! #else
  1295. !     result = vsscanf(buf, fmt, args);
  1296. ! #endif
  1297.     }
  1298.   #endif /* !VMS */
  1299.     va_end(args);
  1300. ***************
  1301. *** 89,109 ****
  1302.    {
  1303.       result = wgetstr(w, buf);
  1304.       if (result == OK) {
  1305. ! #ifndef _OLD_STREAMS
  1306.       strstreambuf ss(buf, BUFSIZ);
  1307.       result = ss.vscan(fmt, args);
  1308. - #else /* OLD_STREAMS */
  1309. - #ifndef HAVE_VSCANF
  1310. -     FILE b;
  1311. -     b._flag = _IOREAD|_IOSTRG;
  1312. -     b._base = buf;
  1313. -     b._ptr = buf;
  1314. -     b._cnt = BUFSIZ;
  1315. -     result = _doscan(&b, fmt, args);
  1316.   #else
  1317. !     result = vsscanf(buf, fmt, args);
  1318.   #endif
  1319. - #endif /* OLD_STREAMS */
  1320.     }
  1321.     }
  1322.   #endif /* !VMS */
  1323. --- 99,110 ----
  1324.    {
  1325.       result = wgetstr(w, buf);
  1326.       if (result == OK) {
  1327. ! #ifdef _IO_MAGIC /* GNU iostreams */
  1328.       strstreambuf ss(buf, BUFSIZ);
  1329.       result = ss.vscan(fmt, args);
  1330.   #else
  1331. !     result = vsscanf(buf, fmt, args);
  1332.   #endif
  1333.     }
  1334.     }
  1335.   #endif /* !VMS */
  1336. ***************
  1337. *** 116,137 ****
  1338.     va_list args;
  1339.     va_start(args, fmt);
  1340.     char buf[BUFSIZ];
  1341. - #ifndef _OLD_STREAMS
  1342. -   strstreambuf ss(buf, BUFSIZ);
  1343. -   ss.vform(fmt, args);
  1344. -   ss.sputc(0);
  1345. - #else /* _OLD_STREAMS */
  1346. - #ifndef HAVE_VPRINTF
  1347. -   FILE b;
  1348. -   b._flag = _IOWRT|_IOSTRG;
  1349. -   b._ptr = buf;
  1350. -   b._cnt = BUFSIZ;
  1351. -   _doprnt(fmt, args, &b);
  1352. -   putc('\0', &b);
  1353. - #else
  1354.     vsprintf(buf, fmt, args);
  1355. - #endif
  1356. - #endif /* _OLD_STREAMS */
  1357.     va_end(args);
  1358.     return waddstr(w, buf);
  1359.   }
  1360. --- 117,123 ----
  1361. ***************
  1362. *** 145,166 ****
  1363.     if (result == OK)
  1364.     {
  1365.       char buf[BUFSIZ];
  1366. - #ifndef _OLD_STREAMS
  1367. -     strstreambuf ss(buf, BUFSIZ);
  1368. -     ss.vform(fmt, args);
  1369. -     ss.sputc(0);
  1370. - #else /* _OLD_STREAMS */
  1371. - #ifndef HAVE_VPRINTF
  1372. -     FILE b;
  1373. -     b._flag = _IOWRT|_IOSTRG;
  1374. -     b._ptr = buf;
  1375. -     b._cnt = BUFSIZ;
  1376. -     _doprnt(fmt, args, &b);
  1377. -     putc('\0', &b);
  1378. - #else
  1379.       vsprintf(buf, fmt, args);
  1380. - #endif
  1381. - #endif /* _OLD_STREAMS */
  1382.       result = waddstr(w, buf);
  1383.     }
  1384.     va_end(args);
  1385. --- 131,137 ----
  1386. *** 1.6    1992/12/14 19:14:32
  1387. --- xfix.cc    1993/07/13 17:38:57
  1388. ***************
  1389. *** 101,107 ****
  1390.     return _new_Fix(len);
  1391.   }
  1392.   
  1393. ! _Fix new_Fix(uint16 len, _Fix x)
  1394.   {
  1395.     _Fix z = _new_Fix(len);
  1396.     return copy(x,z);
  1397. --- 101,107 ----
  1398.     return _new_Fix(len);
  1399.   }
  1400.   
  1401. ! _Fix new_Fix(uint16 len, const _Fix x)
  1402.   {
  1403.     _Fix z = _new_Fix(len);
  1404.     return copy(x,z);
  1405. ***************
  1406. *** 139,145 ****
  1407.   
  1408.   // convert to a double 
  1409.   
  1410. ! double value(Fix& x)
  1411.   { 
  1412.     double d = 0.0;
  1413.     for ( int i=x.rep->siz-1; i >= 0; i-- )
  1414. --- 139,145 ----
  1415.   
  1416.   // convert to a double 
  1417.   
  1418. ! double value(const Fix& x)
  1419.   { 
  1420.     double d = 0.0;
  1421.     for ( int i=x.rep->siz-1; i >= 0; i-- )
  1422. ***************
  1423. *** 158,164 ****
  1424.     Integer a = 1, b=1;
  1425.     for ( int i=0; i < x.rep->siz; i++ )
  1426.     {
  1427. !     a = (a << 16) + x.rep->s[i];
  1428.       b <<= 16;
  1429.     }
  1430.     return a-b;
  1431. --- 158,165 ----
  1432.     Integer a = 1, b=1;
  1433.     for ( int i=0; i < x.rep->siz; i++ )
  1434.     {
  1435. !     a <<= 16;
  1436. !     a += x.rep->s[i];
  1437.       b <<= 16;
  1438.     }
  1439.     return a-b;
  1440. ***************
  1441. *** 181,187 ****
  1442.     return 0;
  1443.   }
  1444.   
  1445. ! int compare(_Fix x, _Fix y)
  1446.   {
  1447.     if ( x->siz == y->siz )
  1448.       return docmp(x->s, y->s, x->siz);
  1449. --- 182,188 ----
  1450.     return 0;
  1451.   }
  1452.   
  1453. ! int compare(const _Fix x, const _Fix y)
  1454.   {
  1455.     if ( x->siz == y->siz )
  1456.       return docmp(x->s, y->s, x->siz);
  1457. ***************
  1458. *** 292,298 ****
  1459.       b += r->s[k];
  1460.           r->s[k] = b;
  1461.         }
  1462. !       if ( k < r->siz + 1 )
  1463.           carry = (a >> 15) + (b >> 16);
  1464.       }
  1465.       r->s[i] = carry;
  1466. --- 293,299 ----
  1467.       b += r->s[k];
  1468.           r->s[k] = b;
  1469.         }
  1470. !       if ( k < (int)r->siz + 1 )
  1471.           carry = (a >> 15) + (b >> 16);
  1472.       }
  1473.       r->s[i] = carry;
  1474. ***************
  1475. *** 452,463 ****
  1476.   
  1477.   extern AllocRing _libgxx_fmtq;
  1478.   
  1479. ! void Fix::printon(ostream& s, int width)
  1480.   {
  1481.     char format[20];
  1482.     double val = value(*this);
  1483.     int old_precision = s.precision(width-3);
  1484. !   ios::fmtflags old_flags = s.setf(ios::fixed, ios::fixed|ios::scientific);
  1485.     if (val >= 0)
  1486.         s << ' ';
  1487.     s.width(width-2);
  1488. --- 453,464 ----
  1489.   
  1490.   extern AllocRing _libgxx_fmtq;
  1491.   
  1492. ! void Fix::printon(ostream& s, int width) const
  1493.   {
  1494.     char format[20];
  1495.     double val = value(*this);
  1496.     int old_precision = s.precision(width-3);
  1497. !   long old_flags = s.setf(ios::fixed, ios::fixed|ios::scientific);
  1498.     if (val >= 0)
  1499.         s << ' ';
  1500.     s.width(width-2);
  1501. ***************
  1502. *** 487,511 ****
  1503.   istream& operator >> (istream& s, Fix& y)
  1504.   {
  1505.     int got_one = 0;
  1506. - #ifdef _OLD_STREAMS
  1507. -   if (!s.good())
  1508. -   {
  1509. -     return s;
  1510. -   }
  1511. - #else
  1512.     if (!s.ipfx(0))
  1513.     {
  1514. !     s.set(ios::failbit); // Redundant if using GNU iostreams.
  1515.       return s;
  1516.     }
  1517. - #endif
  1518.   
  1519.     char sign = 0, point = 0;
  1520.     char ch;
  1521.     s >> ws;
  1522.     if (!s.good())
  1523.     {
  1524. !     s.set(_fail);
  1525.       return s;
  1526.     }
  1527.     while (s.get(ch))
  1528. --- 488,505 ----
  1529.   istream& operator >> (istream& s, Fix& y)
  1530.   {
  1531.     int got_one = 0;
  1532.     if (!s.ipfx(0))
  1533.     {
  1534. !     s.clear(ios::failbit|s.rdstate()); // Redundant if using GNU iostreams.
  1535.       return s;
  1536.     }
  1537.   
  1538.     char sign = 0, point = 0;
  1539.     char ch;
  1540.     s >> ws;
  1541.     if (!s.good())
  1542.     {
  1543. !     s.clear(ios::failbit|s.rdstate());
  1544.       return s;
  1545.     }
  1546.     while (s.get(ch))
  1547. ***************
  1548. *** 542,548 ****
  1549.     if (s.good())
  1550.       s.putback(ch);
  1551.     if (!got_one)
  1552. !     s.set(_fail);
  1553.     else
  1554.       y = atoF(p);
  1555.     _libgxx_io_ob.free(p);
  1556. --- 536,542 ----
  1557.     if (s.good())
  1558.       s.putback(ch);
  1559.     if (!got_one)
  1560. !     s.clear(ios::failbit|s.rdstate());
  1561.     else
  1562.       y = atoF(p);
  1563.     _libgxx_io_ob.free(p);
  1564. ***************
  1565. *** 596,619 ****
  1566.     else
  1567.     {
  1568.       r->s[0] = 0x7fff;
  1569. !     for ( int i=1; i < r->siz; i++ )
  1570.         r->s[i] = 0xffff;
  1571.       mask(r);
  1572.     }
  1573.   }
  1574.   
  1575. ! void Fix_overflow_wrap(_Fix& r) {}
  1576.   
  1577.   void Fix_overflow_warning_saturate(_Fix& r) {
  1578.     Fix_overflow_warning(r);
  1579.     Fix_overflow_saturate(r);
  1580.   }
  1581.   
  1582. ! void Fix_overflow_warning(_Fix& r) {
  1583.     cerr << "Fix: overflow warning\n"; 
  1584.   }
  1585.   
  1586. ! void Fix_overflow_error(_Fix& r) {
  1587.     cerr << "Fix: overflow error\n"; 
  1588.     abort();
  1589.   }
  1590. --- 590,613 ----
  1591.     else
  1592.     {
  1593.       r->s[0] = 0x7fff;
  1594. !     for ( int i = 1; i < (int)r->siz; i++ )
  1595.         r->s[i] = 0xffff;
  1596.       mask(r);
  1597.     }
  1598.   }
  1599.   
  1600. ! void Fix_overflow_wrap(_Fix&) {}
  1601.   
  1602.   void Fix_overflow_warning_saturate(_Fix& r) {
  1603.     Fix_overflow_warning(r);
  1604.     Fix_overflow_saturate(r);
  1605.   }
  1606.   
  1607. ! void Fix_overflow_warning(_Fix&) {
  1608.     cerr << "Fix: overflow warning\n"; 
  1609.   }
  1610.   
  1611. ! void Fix_overflow_error(_Fix&) {
  1612.     cerr << "Fix: overflow error\n"; 
  1613.     abort();
  1614.   }
  1615. *** 1.1    1992/03/22 07:42:32
  1616. --- xfix16.cc    1993/07/13 17:38:57
  1617. ***************
  1618. *** 69,75 ****
  1619.   }
  1620.   
  1621.   
  1622. ! Fix32 operator * (Fix32& a, Fix32& b)
  1623.   {
  1624.   // break a and b into lo and hi parts, and do a multiple-precision
  1625.   // multiply, with rounding
  1626. --- 69,75 ----
  1627.   }
  1628.   
  1629.   
  1630. ! Fix32 operator * (const Fix32& a, const Fix32& b)
  1631.   {
  1632.   // break a and b into lo and hi parts, and do a multiple-precision
  1633.   // multiply, with rounding
  1634. ***************
  1635. *** 92,98 ****
  1636.     return Fix32(p);
  1637.   }
  1638.   
  1639. ! Fix16 operator / (Fix16& a, Fix16& b)
  1640.   {
  1641.     short q;
  1642.     int apos = (a.m >= 0);
  1643. --- 92,98 ----
  1644.     return Fix32(p);
  1645.   }
  1646.   
  1647. ! Fix16 operator / (const Fix16& a, const Fix16& b)
  1648.   {
  1649.     short q;
  1650.     int apos = (a.m >= 0);
  1651. ***************
  1652. *** 114,120 ****
  1653.     return Fix16(q);
  1654.   }
  1655.   
  1656. ! Fix32 operator / (Fix32& a, Fix32& b)
  1657.   {
  1658.     long q;
  1659.     int apos = (a.m >= 0);
  1660. --- 114,120 ----
  1661.     return Fix16(q);
  1662.   }
  1663.   
  1664. ! Fix32 operator / (const Fix32& a, const Fix32& b)
  1665.   {
  1666.     long q;
  1667.     int apos = (a.m >= 0);
  1668. ***************
  1669. *** 150,171 ****
  1670.   
  1671.   // error handling
  1672.   
  1673. ! void Fix16::overflow(short& i)
  1674.   {
  1675.     (*Fix16_overflow_handler)(i);
  1676.   }
  1677.   
  1678. ! void Fix32::overflow(long& i)
  1679.   {
  1680.     (*Fix32_overflow_handler)(i);
  1681.   }
  1682.   
  1683. ! void Fix16::range_error(short& i)
  1684.   {
  1685.     (*Fix16_range_error_handler)(i);
  1686.   }
  1687.   
  1688. ! void Fix32::range_error(long& i)
  1689.   {
  1690.     (*Fix32_range_error_handler)(i);
  1691.   }
  1692. --- 150,171 ----
  1693.   
  1694.   // error handling
  1695.   
  1696. ! void Fix16::overflow(short& i) const
  1697.   {
  1698.     (*Fix16_overflow_handler)(i);
  1699.   }
  1700.   
  1701. ! void Fix32::overflow(long& i) const
  1702.   {
  1703.     (*Fix32_overflow_handler)(i);
  1704.   }
  1705.   
  1706. ! void Fix16::range_error(short& i) const
  1707.   {
  1708.     (*Fix16_range_error_handler)(i);
  1709.   }
  1710.   
  1711. ! void Fix32::range_error(long& i) const
  1712.   {
  1713.     (*Fix32_range_error_handler)(i);
  1714.   }
  1715. *** 1.3    1992/06/03 02:12:17
  1716. --- xfix24.cc    1993/07/13 17:38:57
  1717. ***************
  1718. *** 86,92 ****
  1719.   }
  1720.   
  1721.   
  1722. ! Fix48 operator * (Fix24& a, Fix24& b)
  1723.   {
  1724.   // break a and b into lo and hi parts, and do a multiple-precision
  1725.   // multiply, with rounding
  1726. --- 86,92 ----
  1727.   }
  1728.   
  1729.   
  1730. ! Fix48 operator * (const Fix24& a, const Fix24& b)
  1731.   {
  1732.   // break a and b into lo and hi parts, and do a multiple-precision
  1733.   // multiply, with rounding
  1734. ***************
  1735. *** 120,126 ****
  1736.     return r;
  1737.   }
  1738.   
  1739. ! Fix24 operator / (Fix24& a, Fix24& b)
  1740.   {
  1741.     long q;
  1742.     int apos = (a.m >= 0);
  1743. --- 120,126 ----
  1744.     return r;
  1745.   }
  1746.   
  1747. ! Fix24 operator / (const Fix24& a, const Fix24& b)
  1748.   {
  1749.     long q;
  1750.     int apos = (a.m >= 0);
  1751. ***************
  1752. *** 151,161 ****
  1753.       q += 0x80;            // Round result to 24 bits
  1754.       if (apos != bpos) q = -q;    // Fix sign
  1755.     }
  1756. !   return (q & 0xffffff00);
  1757.   }
  1758.   
  1759.   
  1760. ! Fix48 operator + (Fix48&  f, Fix48&  g)
  1761.   {
  1762.     long lo_r = (f.m.l >> 8) + (g.m.l >> 8);
  1763.     twolongs r;
  1764. --- 151,161 ----
  1765.       q += 0x80;            // Round result to 24 bits
  1766.       if (apos != bpos) q = -q;    // Fix sign
  1767.     }
  1768. !   return (q & ~0xFF);
  1769.   }
  1770.   
  1771.   
  1772. ! Fix48 operator + (const Fix48&  f, const Fix48&  g)
  1773.   {
  1774.     long lo_r = (f.m.l >> 8) + (g.m.l >> 8);
  1775.     twolongs r;
  1776. ***************
  1777. *** 167,173 ****
  1778.     return r;
  1779.   }
  1780.   
  1781. ! Fix48 operator - (Fix48&  f, Fix48&  g)
  1782.   {
  1783.     unsigned lo_r = (f.m.l >> 8) - (g.m.l >> 8);
  1784.     twolongs r;
  1785. --- 167,173 ----
  1786.     return r;
  1787.   }
  1788.   
  1789. ! Fix48 operator - (const Fix48&  f, const Fix48&  g)
  1790.   {
  1791.     unsigned lo_r = (f.m.l >> 8) - (g.m.l >> 8);
  1792.     twolongs r;
  1793. ***************
  1794. *** 179,185 ****
  1795.     return r;
  1796.   }
  1797.   
  1798. ! Fix48 operator * (Fix48& a, long b)
  1799.   {
  1800.     twolongs r;
  1801.     int bpos = (b >= 0);
  1802. --- 179,185 ----
  1803.     return r;
  1804.   }
  1805.   
  1806. ! Fix48 operator * (const Fix48& a, long b)
  1807.   {
  1808.     twolongs r;
  1809.     int bpos = (b >= 0);
  1810. ***************
  1811. *** 204,212 ****
  1812.     return r;
  1813.   }
  1814.   
  1815. ! Fix48 operator << (Fix48& a, int b)
  1816.   {
  1817. !   twolongs r; r.u = r.l = 0;
  1818.     if ( b >= 0 )
  1819.       if ( b < 24 ) {
  1820.         r.u = (a.m.u << b) + ((a.m.l >> (24 - b)) & 0xffffff00L);
  1821. --- 204,212 ----
  1822.     return r;
  1823.   }
  1824.   
  1825. ! Fix48 operator << (const Fix48& a, int b)
  1826.   {
  1827. !   twolongs r; r.u = 0; r.l = 0;
  1828.     if ( b >= 0 )
  1829.       if ( b < 24 ) {
  1830.         r.u = (a.m.u << b) + ((a.m.l >> (24 - b)) & 0xffffff00L);
  1831. ***************
  1832. *** 218,226 ****
  1833.     return r;
  1834.   }
  1835.   
  1836. ! Fix48 operator >> (Fix48& a, int b)
  1837.   {
  1838. !   twolongs r; r.u = r.l = 0;
  1839.     if ( b >= 0 )
  1840.       if ( b < 24 ) {
  1841.         r.l = (a.m.u << (24 - b)) + ((a.m.l >> b) & 0xffffff00L);
  1842. --- 218,226 ----
  1843.     return r;
  1844.   }
  1845.   
  1846. ! Fix48 operator >> (const Fix48& a, int b)
  1847.   {
  1848. !   twolongs r; r.u = 0; r.l = 0;
  1849.     if ( b >= 0 )
  1850.       if ( b < 24 ) {
  1851.         r.l = (a.m.u << (24 - b)) + ((a.m.l >> b) & 0xffffff00L);
  1852. ***************
  1853. *** 239,260 ****
  1854.   
  1855.   // error handling
  1856.   
  1857. ! void Fix24::overflow(long& i)
  1858.   {
  1859.     (*Fix24_overflow_handler)(i);
  1860.   }
  1861.   
  1862. ! void Fix48::overflow(twolongs& i)
  1863.   {
  1864.     (*Fix48_overflow_handler)(i);
  1865.   }
  1866.   
  1867. ! void Fix24::range_error(long& i)
  1868.   {
  1869.     (*Fix24_range_error_handler)(i);
  1870.   }
  1871.   
  1872. ! void Fix48::range_error(twolongs& i)
  1873.   {
  1874.     (*Fix48_range_error_handler)(i);
  1875.   }
  1876. --- 239,260 ----
  1877.   
  1878.   // error handling
  1879.   
  1880. ! void Fix24::overflow(long& i) const
  1881.   {
  1882.     (*Fix24_overflow_handler)(i);
  1883.   }
  1884.   
  1885. ! void Fix48::overflow(twolongs& i) const
  1886.   {
  1887.     (*Fix48_overflow_handler)(i);
  1888.   }
  1889.   
  1890. ! void Fix24::range_error(long& i) const
  1891.   {
  1892.     (*Fix24_range_error_handler)(i);
  1893.   }
  1894.   
  1895. ! void Fix48::range_error(twolongs& i) const
  1896.   {
  1897.     (*Fix48_range_error_handler)(i);
  1898.   }
  1899. *** 1.3    1992/12/14 19:14:32
  1900. --- xgetopt.cc    1993/07/13 17:38:58
  1901. ***************
  1902. *** 24,29 ****
  1903. --- 24,30 ----
  1904.   #define alloca __builtin_alloca
  1905.   #elif defined(sparc)
  1906.   #include <alloca.h>
  1907. + extern "C" void *__builtin_alloca(...);
  1908.   #elif defined(_AIX)
  1909.   #pragma alloca
  1910.   #else
  1911. *** 1.9    1993/05/29 21:16:07
  1912. --- xinteger.cc    1993/07/13 17:38:58
  1913. ***************
  1914. *** 468,474 ****
  1915.   {
  1916.     Integer q, r;
  1917.     divide(num, den, q, r);
  1918. !   double d1 = double(q);
  1919.    
  1920.     if (d1 >= DBL_MAX || d1 <= -DBL_MAX || sign(r) == 0)
  1921.       return d1;
  1922. --- 468,474 ----
  1923.   {
  1924.     Integer q, r;
  1925.     divide(num, den, q, r);
  1926. !   double d1 = q.as_double();
  1927.    
  1928.     if (d1 >= DBL_MAX || d1 <= -DBL_MAX || sign(r) == 0)
  1929.       return d1;
  1930. ***************
  1931. *** 1822,1834 ****
  1932.     {
  1933.       int bw = (unsigned long)b / I_SHIFT;
  1934.       int sw = (unsigned long)b % I_SHIFT;
  1935. !     if (x.rep == 0)
  1936. !       x.rep = Icalloc(0, bw + 1);
  1937. !     else if (x.rep->len < bw)
  1938. !     {
  1939. !       int xl = x.rep->len;
  1940.         x.rep = Iresize(x.rep, calc_len(xl, bw+1, 0));
  1941. -     }
  1942.       x.rep->s[bw] |= (1 << sw);
  1943.       Icheck(x.rep);
  1944.     }
  1945. --- 1822,1830 ----
  1946.     {
  1947.       int bw = (unsigned long)b / I_SHIFT;
  1948.       int sw = (unsigned long)b % I_SHIFT;
  1949. !     int xl = x.rep ? x.rep->len : 0;
  1950. !     if (xl <= bw)
  1951.         x.rep = Iresize(x.rep, calc_len(xl, bw+1, 0));
  1952.       x.rep->s[bw] |= (1 << sw);
  1953.       Icheck(x.rep);
  1954.     }
  1955. ***************
  1956. *** 1837,1853 ****
  1957.   void clearbit(Integer& x, long b)
  1958.   {
  1959.     if (b >= 0)
  1960. -   {
  1961. -     int bw = (unsigned long)b / I_SHIFT;
  1962. -     int sw = (unsigned long)b % I_SHIFT;
  1963. -     if (x.rep == 0)
  1964. -       x.rep = Icalloc(0, bw + 1);
  1965. -     else if (x.rep->len < bw)
  1966.       {
  1967. !       int xl = x.rep->len;
  1968. !       x.rep = Iresize(x.rep, calc_len(xl, bw+1, 0));
  1969. !     }
  1970. !     x.rep->s[bw] &= ~(1 << sw);
  1971.       Icheck(x.rep);
  1972.     }
  1973.   }
  1974. --- 1833,1848 ----
  1975.   void clearbit(Integer& x, long b)
  1976.   {
  1977.     if (b >= 0)
  1978.       {
  1979. !       if (x.rep == 0)
  1980. !     x.rep = &_ZeroRep;
  1981. !       else
  1982. !     {
  1983. !       int bw = (unsigned long)b / I_SHIFT;
  1984. !       int sw = (unsigned long)b % I_SHIFT;
  1985. !       if (x.rep->len > bw)
  1986. !         x.rep->s[bw] &= ~(1 << sw);
  1987. !     }
  1988.       Icheck(x.rep);
  1989.     }
  1990.   }
  1991. ***************
  1992. *** 2308,2321 ****
  1993.   #else
  1994.     if (!s.ipfx(0))
  1995.     {
  1996. !     s.set(ios::failbit);
  1997.       return s;
  1998.     }
  1999.   #endif
  2000.     s >> ws;
  2001.     if (!s.good())
  2002.     {
  2003. !     s.set(ios::failbit);
  2004.       return s;
  2005.     }
  2006.     
  2007. --- 2303,2316 ----
  2008.   #else
  2009.     if (!s.ipfx(0))
  2010.     {
  2011. !     s.clear(ios::failbit|s.rdstate());
  2012.       return s;
  2013.     }
  2014.   #endif
  2015.     s >> ws;
  2016.     if (!s.good())
  2017.     {
  2018. !     s.clear(ios::failbit|s.rdstate());
  2019.       return s;
  2020.     }
  2021.     
  2022. ***************
  2023. *** 2395,2401 ****
  2024.     if (s.good())
  2025.       s.putback(ch);
  2026.     if (!got_one)
  2027. !     s.set(ios::failbit);
  2028.   
  2029.     if (sgn == '-')
  2030.       y.negate();
  2031. --- 2390,2396 ----
  2032.     if (s.good())
  2033.       s.putback(ch);
  2034.     if (!got_one)
  2035. !     s.clear(ios::failbit|s.rdstate());
  2036.   
  2037.     if (sgn == '-')
  2038.       y.negate();
  2039. *** 1.5    1993/05/29 21:16:07
  2040. --- xrationa.cc    1993/07/13 17:39:00
  2041. ***************
  2042. *** 188,194 ****
  2043.   
  2044.   Rational pow(const Rational& x, const Integer& y)
  2045.   {
  2046. !   long yy = long(y);
  2047.     return pow(x, yy);
  2048.   }               
  2049.   
  2050. --- 188,194 ----
  2051.   
  2052.   Rational pow(const Rational& x, const Integer& y)
  2053.   {
  2054. !   long yy = y.as_long();
  2055.     return pow(x, yy);
  2056.   }               
  2057.   
  2058. ***************
  2059. *** 346,352 ****
  2060.   
  2061.   ostream& operator << (ostream& s, const Rational& y)
  2062.   {
  2063. !   if (y.denominator() == 1)
  2064.       s << y.numerator();
  2065.     else
  2066.     {
  2067. --- 346,352 ----
  2068.   
  2069.   ostream& operator << (ostream& s, const Rational& y)
  2070.   {
  2071. !   if (y.denominator() == 1L)
  2072.       s << y.numerator();
  2073.     else
  2074.     {
  2075. ***************
  2076. *** 367,373 ****
  2077.   #else
  2078.     if (!s.ipfx(0))
  2079.     {
  2080. !     s.set(ios::failbit); // Redundant if using GNU iostreams.
  2081.       return s;
  2082.     }
  2083.   #endif
  2084. --- 367,373 ----
  2085.   #else
  2086.     if (!s.ipfx(0))
  2087.     {
  2088. !     s.clear(ios::failbit|s.rdstate()); // Redundant if using GNU iostreams.
  2089.       return s;
  2090.     }
  2091.   #endif
  2092. ***************
  2093. *** 405,415 ****
  2094.   int
  2095.   Rational::fits_in_float() const
  2096.   {
  2097. !     return FLT_MIN <= *this && *this <= FLT_MAX;
  2098.   }
  2099.   
  2100.   int
  2101.   Rational::fits_in_double() const
  2102.   {
  2103. !     return DBL_MIN <= *this && *this <= DBL_MAX;
  2104.   }
  2105. --- 405,415 ----
  2106.   int
  2107.   Rational::fits_in_float() const
  2108.   {
  2109. !     return Rational (FLT_MIN) <= *this && *this <= Rational (FLT_MAX);
  2110.   }
  2111.   
  2112.   int
  2113.   Rational::fits_in_double() const
  2114.   {
  2115. !     return Rational (DBL_MIN) <= *this && *this <= Rational (DBL_MAX);
  2116.   }
  2117. *** 1.3    1992/12/14 19:14:32
  2118. --- xregex.cc    1993/07/13 17:39:00
  2119. ***************
  2120. *** 28,36 ****
  2121.   #include <new.h>
  2122.   #include <builtin.h>
  2123.   
  2124. ! // extern "C" {
  2125.   #include <regex.h>
  2126. ! // }
  2127.   
  2128.   #include <xregex.h>
  2129.   
  2130. --- 28,36 ----
  2131.   #include <new.h>
  2132.   #include <builtin.h>
  2133.   
  2134. ! extern "C" {
  2135.   #include <regex.h>
  2136. ! }
  2137.   
  2138.   #include <xregex.h>
  2139.   
  2140. *** 1.4    1992/11/08 00:19:13
  2141. --- xstring.cc    1993/07/13 17:39:02
  2142. ***************
  2143. *** 1201,1223 ****
  2144.   
  2145.   istream& operator>>(istream& s, String& x)
  2146.   {
  2147. - #ifdef _OLD_STREAMS
  2148. -   if (!s.good())
  2149. -   {
  2150. -     return s;
  2151. -   }
  2152. -   s >> ws;
  2153. -   if (!s.good())
  2154. -   {
  2155. -     return s;
  2156. -   }
  2157. - #else
  2158.     if (!s.ipfx(0) || (!(s.flags() & ios::skipws) && !ws(s)))
  2159.     {
  2160. !     s.set(ios::failbit); // Redundant if using GNU iostreams.
  2161.       return s;
  2162.     }
  2163. - #endif
  2164.     int ch;
  2165.     int i = 0;
  2166.     x.rep = Sresize(x.rep, 20);
  2167. --- 1201,1211 ----
  2168.   
  2169.   istream& operator>>(istream& s, String& x)
  2170.   {
  2171.     if (!s.ipfx(0) || (!(s.flags() & ios::skipws) && !ws(s)))
  2172.     {
  2173. !     s.clear(ios::failbit|s.rdstate()); // Redundant if using GNU iostreams.
  2174.       return s;
  2175.     }
  2176.     int ch;
  2177.     int i = 0;
  2178.     x.rep = Sresize(x.rep, 20);
  2179. ***************
  2180. *** 1232,1252 ****
  2181.     }
  2182.     x.rep->s[i] = 0;
  2183.     x.rep->len = i;
  2184. !   if (i == 0) s.set(_fail);
  2185. !   if (ch == EOF) s.set(_eof);
  2186.     return s;
  2187.   }
  2188.   
  2189.   int readline(istream& s, String& x, char terminator, int discard)
  2190.   {
  2191. - #ifdef _OLD_STREAMS
  2192. -   if (!s.good())
  2193. - #else
  2194.     if (!s.ipfx(0))
  2195. - #endif
  2196. -   {
  2197.       return 0;
  2198. -   }
  2199.     int ch;
  2200.     int i = 0;
  2201.     x.rep = Sresize(x.rep, 80);
  2202. --- 1220,1236 ----
  2203.     }
  2204.     x.rep->s[i] = 0;
  2205.     x.rep->len = i;
  2206. !   int new_state = s.rdstate();
  2207. !   if (i == 0) new_state |= ios::failbit;
  2208. !   if (ch == EOF) new_state |= ios::eofbit;
  2209. !   s.clear(new_state);
  2210.     return s;
  2211.   }
  2212.   
  2213.   int readline(istream& s, String& x, char terminator, int discard)
  2214.   {
  2215.     if (!s.ipfx(0))
  2216.       return 0;
  2217.     int ch;
  2218.     int i = 0;
  2219.     x.rep = Sresize(x.rep, 80);
  2220. ***************
  2221. *** 1264,1270 ****
  2222.     }
  2223.     x.rep->s[i] = 0;
  2224.     x.rep->len = i;
  2225. !   if (ch == EOF) s.set(_eof);
  2226.     return i;
  2227.   }
  2228.   
  2229. --- 1248,1254 ----
  2230.     }
  2231.     x.rep->s[i] = 0;
  2232.     x.rep->len = i;
  2233. !   if (ch == EOF) s.clear(ios::eofbit|s.rdstate());
  2234.     return i;
  2235.   }
  2236.   
  2237. ***************
  2238. *** 1324,1330 ****
  2239.   
  2240.   int SubString::OK() const
  2241.   {
  2242. !   int v = S != 0;               // have a String;
  2243.     v &= S.OK();                 // that is legal
  2244.     v &= pos + len >= S.rep->len;// pos and len within bounds
  2245.     if (!v) S.error("SubString invariant failure");
  2246. --- 1308,1314 ----
  2247.   
  2248.   int SubString::OK() const
  2249.   {
  2250. !   int v = S != (const char*)0; // have a String;
  2251.     v &= S.OK();                 // that is legal
  2252.     v &= pos + len >= S.rep->len;// pos and len within bounds
  2253.     if (!v) S.error("SubString invariant failure");
  2254.